home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A).zip / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A).po / INTERRUPT.bas < prev    next >
BASIC Source File  |  1996-12-24  |  550b  |  12 lines
  1. 10  REM  PROGRAM INTERRUPT
  2. 20  REM  DISABLE INTERUPTS ON THE APPLE IIGS
  3. 30  REM  THIS PREVENTS ACCESS TO THE CONTROL PANEL AND OTHER THINGS
  4. 40  POKE 768,120: POKE 769,96: CALL 768
  5. 50  REM  THE MACHINE CODE IS $78  $60
  6. 60  REM  SEI (SET INTERRUPT MASK) RTS (RETURN FROM SUBROUTINE)
  7. 70  REM  THESE CODES ARE PART OF THE 6502 COMMAND SET
  8. 80  REM  AND WORK WITH PRODOS 8
  9. 90  REM  ENABLE INTERRUPTS ON THE IIGS
  10. 100  POKE 768,88: POKE 769,96: CALL 768
  11. 110  REM  THE MACHINE CODE IS $58  $60
  12. 120  REM  CLI (CLEAR INTERRUPT MASK) RTS (RETURN FROM SUBROUTINE)